type t = Click of int * int
and event = t
and handler = event -> Src.effect

let to_string = function
  | Click(x, y) -> Printf.sprintf "Click(%d,%d)" x y

let equal : t -> t -> bool =
  (=)
